home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9112a.d64
/
setup v2.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
124 lines
5 LW=8: REM LAUFWERKSNUMMER FUER KONFIGDATEI
10 PRINT"[147] 64'ER MESSLABOR SETUP/PROGRAMM "
20 PRINT"MIT DIESEM PROGRAMM KOENNEN SIE DAS"
30 PRINT"64'ER MESSLABOR[146] AN IHRE WUENSCHE"
40 PRINT"OPTIMAL ANPASSEN. BEFOLGEN SIE DAZU NUR"
50 PRINT"DIE ANWEISUNGEN, DIE AUF DEM BILDSCHIRM"
60 PRINT"ERSCHEINEN UND BEACHTEN SIE DIE HINWEISE"
70 PRINT"IN DER JEWEILIGEN 64'ER[146]-AUSGABE!"
75 PRINT""
80 PRINT"[145]WEITER -> TASTE DRUECKEN"
85 FORA=1TO200:NEXTA
90 GETA$:IF A$<>"" THEN 150
100 PRINT"[145]WEITER -> TASTE DRUECKEN"
110 FORA=1TO200:NEXTA
120 GOTO 80
150 PRINT"[147] 64'ER MESSLABOR SETUP/PROGRAMM "
160 PRINT"WIEVIELE ANALOGE MODULE HABEN SIE"
165 PRINT"INSTALLIERT (1-6)? ";
170 GET I$
180 IFI$=""THEN170
190 IFI$<"1"ORI$>"6"THENPRINT:PRINT"[145][145][145][145]";:GOTO160
200 PRINT""I$
210 N=VAL(I$)
215 FOR A = 1 TO 300: NEXT A
220 FOR M = 1 TO N
222 : F=0
230 : PRINT"[147] SETUP MODUL "M;"[157] "
240 : PRINT"WELCHE GROESSE MISST MODUL ";M" ?"
250 : PRINT"(TEMPERATUR, LUFTDRUCK USW.)"
255 : PRINT"MAXIMAL 10 BUCHSTABEN"
256 : L=10
260 : GOSUB2000
261 : G$(M)=I$
262 : PRINT
270 : PRINT"GEBEN SIE BITTE DIE EINHEIT AN!"
280 : PRINT"(GRAD, VOLT USW.)"
290 : PRINT"MAXIMAL 4 BUCHSTABEN"
300 : L=4
310 : GOSUB 2000
311 : E$(M)=I$
315 : PRINT"[147] SETUP MODUL "M;"[157] "
320 : PRINT"AUF WELCHER BILDSCHIRMPOSITION"
330 : PRINT"SOLL DIE ANZEIGE ERFOLGEN?"
340 : PRINT""
350 : FOR B = 1 TO 6
360 : IF P(B)<>0THENPRINT" [157][157][157] [157][157][157] [145][145]";:GOTO380
370 : PRINT" [157][157][157]"B"[157] [157][157][157] [146] [145][145]";
380 : IF B = 3 THEN PRINT""
390 : NEXT B
395 : PRINT""
400 : GETA$
410 : IFA$=""THEN400
420 : IFA$<"1"ORA$>"6"THEN400
422 : F=0
430 : FOR B = 1 TO 6
440 : IF P(VAL(A$))<>0THEN F=1
450 : NEXT B
460 : IFF=1THEN400
470 : PRINT""A$
480 : P(VAL(A$))=1
490 : B(M)=VAL(A$)
500 : PRINT"[147] SETUP MODUL "M;"[157] "
510 : PRINT"SOLLEN DIE DATEN AUF DISKETTE"
520 : PRINT"ARCHIVIERT WERDEN (J/N)?"
530 : GETA$
540 : IFA$<>"J"ANDA$<>"N"THEN530
550 : A(M)=(A$="J")
560 : PRINT""A$
561 : FORX=1TO200:NEXTX
570 : IFA$="N"THEN650
580 : PRINT"WELCHEN NAMEN SOLL DIE ARCHIV-"
590 : PRINT"DATEI ERHALTEN (MAX 16 ZEICHEN)?"
600 : PRINT"ACHTUNG, DATEIEN, DIE SCHON"
610 : PRINT"UNTER DIESEM NAMEN EXISTIEREN,"
620 : PRINT"KOENNEN ZERSTOERT WERDEN!"
630 : L=16
635 : I$=""
640 : GOSUB2000
645 : IFI$=""THENI$=G$(M)
650 : N$(M)=I$
660 NEXT M
700 PRINT"[147] SETUP MODUL "
710 PRINT"LEGEN SIE DIE DISKETTE IN LAUFWERK"
720 PRINT""LW" EIN UND DRUECKEN EINE TASTE"
730 PRINT"ZUM SPEICHERN DER KONFIGURATIONS-"
740 PRINT"DATEI!"
750 GETA$
760 IFA$=""THEN750
770 OPEN1,LW,15,"I"
780 INPUT#1,F,F$,T,S
790 IFF<>0THENGOSUB3000
800 OPEN2,LW,2,"@:KONFIGMES,S,W"
805 PRINT#2,N
810 FOR M = 1 TO N
820 : PRINT#2,G$(M)
830 : PRINT#2,E$(M)
840 : PRINT#2,B(M)
850 : PRINT#2,A(M)
860 : PRINT#2,N$(M)
870 NEXT M
880 CLOSE2
890 CLOSE1
900 PRINT"[147]GOOD BYE!"
910 FORA=1TON
920 IF A(A) <> -1 THEN990
930 OPEN1,LW,15
940 OPEN2,LW,2,N$(A)+",L,"+CHR$(16)
950 PRINT#1,"P"+CHR$(2)+CHR$(100)+CHR$(0)+CHR$(0)
960 PRINT#1,"P"+CHR$(2)+CHR$(100)+CHR$(0)+CHR$(0)
970 PRINT#2,0
980 CLOSE2:CLOSE1
985 NEXT A
990 END
2000 X=0:I$="":A$=""
2001 GETA$
2010 IFA$=""THEN2001
2020 IF(A$<"A"ORA$>"Z")ANDA$<>"[148]"ANDA$<>CHR$(13)THEN2001
2021 X=X+1:IFX=L+1THENA$=CHR$(13)
2025 IFA$=CHR$(13)THENRETURN
2026 IFA$="[148]"THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157]";:X=X-2:GOTO2001
2030 I$=I$+A$
2040 PRINT""A$;
2050 GOTO2001